home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / speed read (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  259 lines
  1. 1 gosub60100
  2. 5 clr:dimj$(500),g$(80):bk$="[164]"
  3. 10 forr=54272to54296:poker,0:next
  4. 19 poke54274,0:poke54275,8
  5. 28 poke54278,240:poke54296,0
  6. 37 poke54277,0:poke54276,65
  7. 46 poke54272,63:poke54273,72:lt=0
  8. 55 poke53280,15:poke53281,15:poke646,lt
  9. 65 print"[147]              [211]peed [210]ead"
  10. 67 print"              [163][163][163][163][163][163][163][163][163]"
  11. 69 print"          ([198]) [198]lashcards"
  12. 71 print"          ([211]) [211]topwatch"
  13. 72 print"          ([195]) [210][213][206] '[198]lash [195]reate'"
  14. 73 print"          ([210]) [210]eturn to [204][207][193][196][211][212][193][210]"
  15. 100 gett$:ift$=""then100
  16. 109 ift$="f"ort$="[198]"then136
  17. 118 ift$="s"ort$="[211]"then1207
  18. 127 ift$="r"ort$="[210]"then1063
  19. 128 ift$="c"ort$="[195]"then8000
  20. 130 goto100
  21. 136 yes=0:no=0:print"[147]"
  22. 145 c%=11:gosub1081:print"[197]nter level  (1-8)  ";
  23. 154 getl$:ifl$=""then154
  24. 163 lv=val(l$)
  25. 172 if lv=0thensp=3:goto244
  26. 181 lev=1
  27. 190 forj=1to8
  28. 199 lev=lev*10
  29. 208 iflv<>jthen226
  30. 217 n$="level"+str$(j):goto253
  31. 226 next j
  32. 235 goto136
  33. 244 iflv=0thenn$="demonstration"
  34. 253 i=0:sp=2
  35. 262 print"[147]":r%=12:c%=12:gosub1081
  36. 271 print"[204]oading[160]";n$
  37. 272 open15,8,15,"r0:"+n$+"="+n$+"":input#15,er:close15
  38. 273 ifer=63then280
  39. 275 print:print"            [198][201][204][197] [206][207][212] [198][207][213][206][196]![144]"
  40. 276 fora=1to2000:next:goto136
  41. 280 open 8,8,4,""+n$+ ",r"
  42. 289 input#8,k$:if k$="/"then325
  43. 298 i=i+1
  44. 307 j$(i)=k$
  45. 316 goto289
  46. 325 close8
  47. 334 iflv=0then442
  48. 343 r0=rnd(-rnd(0))
  49. 352 k=i-1:l=lev*10
  50. 361 i=2*i:ifi>500theni=500
  51. 370 forj=ktoi
  52. 379 m=int(l*rnd(r0))
  53. 388 ifm<levthen379
  54. 397 m$=str$(m)
  55. 406 o$=right$(m$,len(m$)-1)
  56. 415 j$(j)=left$(o$,len(o$)-1)
  57. 424 nextj
  58. 433 rem don't get numbers for demo
  59. 442 close8
  60. 451 print"[147]":c%=17:r%=3
  61. 460 iflv=0thenc%=13
  62. 469 gosub1081:printn$
  63. 478 c%=13:r%=4:gosub1081:poke646,6
  64. 487 foro=1to14:print"[178]";:next
  65. 496 c%=13:r%=8:gosub1081
  66. 505 foro=1to14:print"[177]";:next
  67. 514 c%=0:r%=9:gosub1081:poke646,2
  68. 523 foro=0to39:print"[183]";:next
  69. 532 r%=11:gosub1081
  70. 541 foro=0to39:print"[175]";:next
  71. 550 inarow=0:poke646,lt
  72. 559 r0=rnd(-rnd(0))
  73. 568 iflv>0thenr1=int(rnd(r0)*i):ifr1=0then568
  74. 577 iflv=0thenr1=r1+1:ifr1>22then964
  75. 586 r%=14:gosub1135:r%=15:gosub1135:gosub1081
  76. 595 x=yes+no
  77. 604 print"[212]otal=";x
  78. 605 print"[212]ype  /  [144]to exit.                 ":print"[208]ress [210][197][212][213][210][206] when ready."
  79. 606 getp$
  80. 607 ifp$<>chr$(13)andp$<>"/"then606
  81. 613 ifp$="/"then964
  82. 622 c%=21-(len(j$(r1))/2):r%=10
  83. 631 gosub1081:printj$(r1)
  84. 640 lim=sp:iflim>0thengosub1180
  85. 649 r%=10:gosub1135:r%=14:gosub1135
  86. 658 r%=15:gosub1135:r%=16:gosub1135:r%=17:gosub1135:r%=18:gosub1135
  87. 667 c%=0:r%=14:gosub1081
  88. 676 print"[197]nter what you saw below."
  89. 677 print"([197]nter r[144] to redisplay it.)
  90. 678 [153]"->";bk$;:nc[178]40:mo[178]154:[141]60500:[139]a$[178]""[167]a$[178][199](13)
  91. 685 [139]a$[178]"/"[167]964
  92. 694 [139]a$[178]"r"[167]622
  93. 703 [139]a$[178]j$(r1)[167]yes[178]yes[170]1
  94. 712 [139]a$[179][177]j$(r1)[167]no[178]no[170]1
  95. 721 h%[178]5:q%[178]5
  96. 730 [139]sp[178]1[167]h%[178]7:q%[178]6
  97. 739 [139]sp[178]0[167]h%[178]10:q%[178]7
  98. 748 [139]a$[179][177]j$(r1)[167]856
  99. 757 [151]646,h%
  100. 766 c%[178]inarow[170]13:r%[178]q%:[141]1081:[153]"*"
  101. 775 [151]646,lt
  102. 784 inarow[178]inarow[170]1
  103. 793 [139]inarow[179]14[167]568
  104. 802 inarow[178]0
  105. 811 sp[178]sp[171]1:[139]sp[177][178]0[167]559
  106. 820 sp[178]2:lv[178]lv[170]1:[139]lv[179][178]8[167]181
  107. 829 [153]"load":r%[178]10:c%[178]10:[153]"(NULL)ou've mastered the course! lenongratulations"
  108. 838 [137]964
  109. 847 [137]559
  110. 856 r%[178]17:[141]1135
  111. 865 [151]54296,15:lim[178]1:[141]1180:[151]54296,0
  112. 874 r%[178]17:c%[178]0:[141]1081
  113. 883 [153]"right$t should be"
  114. 892 r%[178]19:c%[178]2:[141]1081
  115. 901 [153]j$(r1)
  116. 910 r%[178]21:c%[178]0:[141]1081
  117. 919 [153]"(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to continue"
  118. 920 [161]a$:[139]a$[179][177][199](13)[167]920
  119. 928 [129]n[178]16[164]21:r%[178]n:[141]1135:[130]
  120. 937 c%[178]inarow:r%[178]q%:[141]1135
  121. 946 inarow[178]0
  122. 955 [137]559
  123. 964 lim[178]50:[141]1180:[153]"load"
  124. 973 x[178]yes[170]no
  125. 982 [139]x[179][177]0[167]p[178][181](10000[172](yes[173]x))[173]100
  126. 991 [153]"";n$:[153]
  127. 1000 [153]"(NULL)ight= ";yes;
  128. 1009 [153]"  (NULL)rong= ";no;
  129. 1018 [153]"  (NULL)otal= ";yes[170]no
  130. 1027 [153]:[153]"(NULL)core= ";p;"%":[153]
  131. 1036 [153]:[153]"(NULL)ress any key for menu";
  132. 1045 [161]l$:[139]l$[178]""[167]1045
  133. 1054 [137]5
  134. 1063 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  135. 1064 [139]er[179][177]63[167][128]
  136. 1065 [153]"load";:[147]"hello connect",8
  137. 1072 [128]
  138. 1081 [143] move cursor to a position
  139. 1090 c$[178]""
  140. 1099 r$[178]""
  141. 1108 [153]""
  142. 1117 [153][200](c$,c%);[200](r$,r%);
  143. 1126 [142]
  144. 1135 [143] erase a row & move
  145. 1144 c%[178]0:[141]1081
  146. 1153 [153]"                                        "
  147. 1162 [141]1081
  148. 1171 [142]
  149. 1180 [143] pause
  150. 1189 [129]o[178]1[164]lim:xx[178][191](45):[130]
  151. 1198 [142]
  152. 1207 [143] time the practice reading
  153. 1216 [153]"load":r%[178]12:c%[178]10:[141]1081
  154. 1225 [151]646,6
  155. 1234 [153]"(NULL)ress any key to startwait"
  156. 1243 [161]l$:[139]l$[178]""[167]1243
  157. 1252 t0$[178]time$
  158. 1261 [153]"load":r%[178]12:c%[178]10:[141]1081
  159. 1270 [151]646,2
  160. 1279 [153]"(NULL)ress any key to stopwait"
  161. 1288 [161]l$:[139]l$[178]""[167]1288
  162. 1297 t1$[178]time$:t[178][197](t0$):[141]1459:t0[178]t
  163. 1306 t[178][197](t1$):[141]1459:t[178]t[171]t0:[139]t[178]0[167]t[178]1
  164. 1315 [151]646,0:[153]"load"
  165. 1333 [153]"valnter number of words:";bk$;:mo[178]2:nc[178]15:[141]60500:q$[178]a$
  166. 1342 d[178][197](q$)
  167. 1351 [153]"load":r%[178]5:c%[178]0:[141]1081
  168. 1360 [153]"elapsed  time   speed"
  169. 1369 r%[178]6:[141]1081
  170. 1378 [153]"  (minutes)     (wpm)"
  171. 1387 t[178][181](100[172](t[173]60))[173]100
  172. 1396 spd[178][181](d[173]t):r%[178]8
  173. 1405 c%[178]3:[141]1081:[153]t
  174. 1414 c%[178]16:[141]1081:[153]spd
  175. 1423 r%[178]13:c%[178]0:[141]1081
  176. 1432 [153]"(NULL)ress any key to return to the menu";
  177. 1441 [161]l$:[139]l$[178]""[167]1441
  178. 1450 [137]5
  179. 1459 [143] convert to seconds
  180. 1468 hrs[178][181](t[173]10000)
  181. 1477 t[178]t[171](10000[172]hrs)
  182. 1486 min[178][181](t[173]100)
  183. 1495 sec[178]t[171](100[172]min)
  184. 1504 t[178]3600[172]hrs[170]60[172]min[170]sec
  185. 1513 [142]
  186. 8000 f$[178]"flash create"
  187. 8010 [153]"loadload";[199](34);f$;[199](34);",8"
  188. 8020 [153]"run"
  189. 8030 [151]631,13:[151]632,13:[151]198,2:[162]
  190. 60100 pn$[178]"(NULL)(NULL)valvalstr$ (NULL)valatnstr$":an$[178]"peek(NULL):  mid$val(NULL)(NULL)(NULL) val. chr$(NULL)ascasc"
  191. 60110 bo[178]11:sc[178]15:cl[178]06:c1[178]12:c2[178]00:c3[178]12:c4[178]00:c5[178]00:c6[178]02:c7[178]09
  192. 60120 [143] bo - border color
  193. 60121 [143] sc - screen color
  194. 60122 [143] cl - color poked on border
  195. 60123 [143] c1 - top box outside color
  196. 60124 [143] c2 - top box inside color
  197. 60125 [143] c3 - bottom box outside color
  198. 60126 [143] c4 - bottom box inside color
  199. 60127 [143] c5 - 'copyright' color
  200. 60128 [143] c6 - 'program name' color
  201. 60129 [143] c7 - 'authors name' color
  202. 60130 [151]53280,bo:[151]53281,sc:[153]"load";
  203. 60140 [151]646,c1:[153]"  totototototototototototototototototototototototototototototototototototo"
  204. 60150 [151]646,c2:[153]"  fn        (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)(NULL)val(NULL)val(NULL)(NULL)(NULL):        then"
  205. 60170 [151]646,c1:[153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  206. 60180 [151]646,c6:[153]""[163]20[171][195](pn$)[173]2);pn$
  207. 60190 [151]646,c7:[153]""[163]20[171][195](an$)[173]2);an$
  208. 60200 [151]646,c5:[153]""[163]13)"len(NULL)(NULL)(NULL)(NULL)right$chr$left$(NULL) 1986"
  209. 60210 [153][163]9)"len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val (NULL)(NULL)peek(NULL)right$lenatn(NULL)right$(NULL)(NULL)(NULL)"
  210. 60220 [151]646,c3:[153]"  totototototototototototototototototototototototototototototototototototo"
  211. 60230 [151]646,c4:[153]"  fn                                  then"
  212. 60240 [151]646,c3:[153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":le[178]1044:ri[178]1043
  213. 60250 [151]le,98:[151]ri,98:le[178]le[171]1:ri[178]ri[170]1
  214. 60260 co[178]54272:[151]ri[170]co,cl:[151]le[170]co,cl